program Project1; //Zadanie 3.2

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  x, y : Integer;

begin
  Writeln('Program oblicza wartosc funkcji y=3x dla x zmieniajacego sie od 0 do 10.');
  x:=0;

  repeat
    y := 3*x;
    Writeln('x = ', x, #9, 'y = ', y);
    x := x+1;
  until x > 10;

  Readln; // czeka na nacisniecie klawisza Enter
end.
